﻿Public Class SeleccionFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta de la Selección")
        Me.codigo = Utils.Enumeradores.Excepeciones.SeleccionFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta de la Selección"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SeleccionFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización de la Selección")
        Me.codigo = Utils.Enumeradores.Excepeciones.SeleccionFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización de la Selección"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SeleccionFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja de la Selección")
        Me.codigo = Utils.Enumeradores.Excepeciones.SeleccionFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja de la Selección"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SeleccionFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda de la Selección")
        Me.codigo = Utils.Enumeradores.Excepeciones.SeleccionFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda de la Selección"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SeleccionFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Seleccions")
        Me.codigo = Utils.Enumeradores.Excepeciones.SeleccionFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Seleccions"
        Me.innerException2 = innerException
    End Sub
End Class
